home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / FILES.SWG / 0009_FILSHAR2.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  751b  |  38 lines
  1. Program ShareVolation;
  2. Uses Dos,Crt;
  3.  
  4. Function FileOpen(S:String):Boolean; Assembler;
  5. { -returns True if File already is open (Access denied) ..}
  6. Asm
  7.   PUSH DS             { changes are in all caps }
  8.   mov  ah,03dh
  9.   xor  al,al
  10.   LDS  DX, S
  11.   INC  DX          { point to contents of String }
  12.   int  21h
  13.   mov  bx,ax
  14.   mov  al,0  { FileOpen = False }
  15.   jnc  @end
  16.   cmp  bx,05h  { Access denied}
  17.   jz   @Open
  18.   jmp  @end
  19.  
  20. @Open:
  21.   mov al,1  { FileOpen = True}
  22. @end:
  23.    POP DS
  24. end; { FileOpen }
  25.  
  26.  
  27. Var
  28.    F : Text ;
  29.  
  30. begin
  31.    FileMode := $10 ;                 { deny read/Write ?? }
  32.    Assign( F, 'C:\TEST.TXT' ) ;
  33.    ReWrite( F ) ;
  34.  
  35.    WriteLn(FileOpen('C:\TEST.TXT'+ #0));  { SHARE is loaded }
  36.    Close( F ) ;
  37. end.
  38.